VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "WindowToPop"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private m_strWindowTitle As String
Private m_strWindowText As String
Private m_intTimeSleep As Integer

Public Property Get Title() As String
    Title = m_strWindowTitle
End Property

Public Property Let Title(ByVal NewValue As String)
    m_strWindowTitle = NewValue
End Property

Public Property Get Text() As String
    Text = m_strWindowText
End Property

Public Property Let Text(ByVal NewValue As String)
    m_strWindowText = NewValue
End Property
Public Property Get TimeSleep() As Integer
    TimeSleep = m_intTimeSleep
End Property

Public Property Let TimeSleep(ByVal NewValue As Integer)
    m_intTimeSleep = NewValue
End Property


Private Sub Class_Initialize()
  m_strWindowTitle = ""
  m_strWindowText = ""
  m_intTimeSleep = 0
End Sub


